home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-0039 / source / dcqpiccn.def < prev    next >
Text File  |  1997-04-16  |  2KB  |  64 lines
  1. DEFINITION MODULE DCQPicCnv;
  2.  
  3. (*---------------------------------------------------------------------*)
  4. (*   LOW LEVEL Picture Conversion Routines For DegasConvert            *)
  5. (*                                                                     *)
  6. (*                                                                     *)
  7. (*                                                                     *)
  8. (*                                                                     *)
  9. (*---------------------------------------------------------------------*)
  10.  
  11. FROM DCGlobal           IMPORT  DegasPicture,
  12.                                 Palette,
  13.                                 PrintPalette,
  14.                                 PrintBitPatternSet,
  15.                 LowRes16PixelsPtr,
  16.                 LowResScreenLinePtr,
  17.                 LowResScreen,
  18.                 MedRes16PixelsPtr,
  19.                     MedResScreenLinePtr,
  20.                 MedResScreen,
  21.                 HiRes16PixelsPtr,
  22.                     HiResScreenLinePtr,
  23.                 HiResScreen;
  24.  
  25.  
  26. (*----------------------------------------------------------------------*)
  27. (* Find out the Colour index of a low-res pixel.                        *)
  28. (*----------------------------------------------------------------------*)
  29. PROCEDURE QQryLRPIndex( PixelNo : CARDINAL;
  30.             PGPtr : LowRes16PixelsPtr ) : CARDINAL;
  31.  
  32.  
  33. PROCEDURE QSetLTHPBP(   StartBitno    : CARDINAL;
  34.                         ScreenLine1,    
  35.                 ScreenLine2    : HiRes16PixelsPtr;
  36.             pbp        : PrintBitPatternSet );
  37.   
  38.  
  39.  
  40. (*----------------------------------------------------------------------*)
  41. (* Medium resolution versions of the above                              *)
  42. (*----------------------------------------------------------------------*)
  43.  
  44. (*----------------------------------------------------------------------*)
  45. (* Find out the Colour index of a low-res pixel.                        *)
  46. (*----------------------------------------------------------------------*)
  47. PROCEDURE QQryMRPIndex  ( PixelNo : CARDINAL;
  48.               PGPtr : MedRes16PixelsPtr ) : CARDINAL;
  49.  
  50. PROCEDURE QSetMTHPBP(   StartBitno    : CARDINAL;
  51.                         ScreenLine1,    
  52.                 ScreenLine2    : HiRes16PixelsPtr;
  53.             pbp        : PrintBitPatternSet );
  54.   
  55.  
  56. PROCEDURE QQryHRPixel(     x, y       : CARDINAL;
  57.                        VAR picture : HiResScreen ) : BOOLEAN; 
  58.  
  59. PROCEDURE QQColourComp( colour : CARDINAL;
  60.                         VAR red, green, blue : CARDINAL ); 
  61.  
  62. END DCQPicCnv.
  63.  
  64.